﻿Public Class clsInhUprawnienia
    Inherits clsUprawnienia

#Region "Attributes"

    Private mvarFunkcja As clsFunkcja

#End Region

#Region "Properties"

    Public Property Funkcja As clsFunkcja
        Get
            Return mvarFunkcja
        End Get
        Set(ByVal value As clsFunkcja)
            mvarFunkcja = value
        End Set
    End Property

#End Region

#Region "Methods"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal ID As Integer, ByVal lvarDbHolder As clsDataBase)

        MyBase.New(ID, lvarDbHolder, VAR_ERROR_HANDLER)
        mvarFunkcja = New clsFunkcja(MyBase.FunkcjaId, lvarDbHolder, VAR_ERROR_HANDLER)

    End Sub


#End Region

End Class
